﻿Partial Public Class ScriptInfo

    Private _Website As String
    Private _Help As String


    Public Sub ShowInfo(ByVal Info As Cintie.ScriptEngine.ScriptInformation)
        TextBlock1.Text = Info.Title
        TextBlock2.Text = "Author: " & Info.Author
        _Website = Info.AuthorWebsite
        _Help = Info.HelpUri

        Try
            WebBrowser1.Navigate(New Uri(Info.GetStarted))
        Catch ex As Exception
        End Try

        Me.Show()

    End Sub

    Private Sub TextBlock3_MouseLeftButtonDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles TextBlock3.MouseLeftButtonDown
        Try
            System.Diagnostics.Process.Start(_Help)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub TextBlock4_MouseLeftButtonDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles TextBlock4.MouseLeftButtonDown
        Try
            System.Diagnostics.Process.Start(_Website)
        Catch ex As Exception

        End Try
    End Sub
End Class
